100 REM *******************************
105 REM *  THIS PROGRAM CREATES THE   *
110 REM *  RELATIVE FILE OR MAKES IT  *
115 REM *           LARGER.           *
120 REM *  BY JOHN SERAFINO  12/94    *
125 REM *******************************
130 REM
140 REM "FBS.MAKE-REL.BAS"
150 REM
200 PRINT"[147]"CHR$(8)CHR$(14);
205 DV=PEEK(186):IF(DV<8)OR(DV>29)THENDV=8
210 POKE53280,0:POKE53281,0
220 PRINT"[156]  [198]ILEBASE 64    [210]ELATIVE [198]ILE [205]ANAGER"
230 PRINT"[156]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
240 PRINT"[154][215]ARNING:  [208]LEASE READ THE DOCUMENTATION"
250 PRINT"[194][197][198][207][210][197] YOU ATTEMPT TO USE THIS PROGRAM."
260 INPUT"[153][196]O YOU WISH TO CONTINUE   N[157][157][157]";A$
270 IF(A$<>"Y")AND(A$<>"[217]")THEN:PRINT"[147][208]ROGRAM [200]ALTED.[151]":END
290 PRINT"[150][197]NTER THE [212]ARGET [196]EVICE [206]UMBER: ";
300 OPEN1,0:INPUT#1,DV$:CLOSE1:PRINT
310 DV=VAL(DV$):IF(DV<8)OR(DV>29)THEN290
315 PRINT"[152][197]NTER THE MAXIMUM NUMBER OF RECORDS THAT"
316 PRINT"[145][152]YOU WILL NEED. [197]ACH RECORD WILL REQUIRE"
317 PRINT"ONE DISK BLOCK: ";
320 OPEN1,0:INPUT#1,BS$:CLOSE1:PRINT:BS=VAL(BS$):IFBS<200ORBS>10000THEN315
325 PRINT"[195]REATE"BS" BLOCK [210][197][204] [198]ILE ON DRIVE"DV
330 INPUT"[158][196]O YOU WISH TO CONTINUE   N[157][157][157]";A$
340 IF(A$<>"Y")AND(A$<>"[217]")THEN:PRINT"[147][208]ROGRAM [200]ALTED.[151]":END
400 PRINT"[147][156]  [198]ILEBASE 64    [210]ELATIVE [198]ILE [205]ANAGER"
420 PRINT"[156]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
430 PRINT"            [195]REATING [198]ILE...
500 [159]15,DV,15:[159]1,DV,2,"0:FBS.DATABASE    ,L,"[170][199](254):NR[178]BS:[141]1000
510 RH[178][181](NR[173]256):RL[178]NR[171]256[172]RH
520 [152]15,"P"[170][199](96[170]2)[170][199](RL)[170][199](RH)
530 [152]15,"P"[170][199](96[170]2)[170][199](RL)[170][199](RH):[141]1000
540 [152]1,[199](255):[141]1000:[160]1:[141]1000:[160]15
550 [153]"CONT                 STR$(null)(null)VAL!":[128]
1000 [132]15,EN,EM$,ET,ES:
1010 [139]EN[177]1[175]EN[179][177]50[167][153]"ATNN VALRROR (null)CCURRED.":[160]1:[160]15:[128]
1020 [142]